home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / tm-html.el.z / tm-html.el
Encoding:
Text File  |  1998-05-21  |  2.3 KB  |  75 lines
  1. ;;;
  2. ;;; tm-html.el: a tm-view internal decoder for HTML
  3. ;;;
  4. ;;; Copyright (C) 1995 Free Software Foundation, Inc.
  5. ;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
  6. ;;;
  7. ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
  8. ;;; Created: 1995/9/14
  9. ;;;    based on tm-latex.el by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  10. ;;; Version:
  11. ;;;    $Id: tm-html.el,v 7.6 1996/05/27 08:00:50 morioka Exp $
  12. ;;; Keywords: mail, news, MIME, multimedia, HTML, WWW
  13. ;;;
  14. ;;; This file is part of tm (Tools for MIME).
  15. ;;;
  16. ;;; This program is free software; you can redistribute it and/or
  17. ;;; modify it under the terms of the GNU General Public License as
  18. ;;; published by the Free Software Foundation; either version 2, or
  19. ;;; (at your option) any later version.
  20. ;;;
  21. ;;; This program is distributed in the hope that it will be useful,
  22. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  23. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  24. ;;; General Public License for more details.
  25. ;;;
  26. ;;; You should have received a copy of the GNU General Public License
  27. ;;; along with This program.  If not, write to the Free Software
  28. ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  29. ;;;
  30. ;;; Code:
  31.  
  32. (require 'tm-view)
  33.  
  34. (defun mime-article/decode-html (beg end cal)
  35.   (let* ((cur-buf (current-buffer))
  36.      new-buf
  37.      (name (or (cdr (assoc "name" cal))
  38.            (cdr (assoc "x-name" cal))
  39.            (concat (make-temp-name "tm") ".html")))
  40.      (encoding (cdr (assq 'encoding cal)))
  41.      ;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
  42.      ;;    1995/11/17 (cf. [tm-ja:1117])
  43.          (html-helper-build-new-buffer nil)
  44.      )
  45.     (switch-to-buffer mime::article/preview-buffer)
  46.     (funcall mime/find-file-function (expand-file-name name mime/tmp-dir))
  47.     (if (or (<= (buffer-size) 0)
  48.         (y-or-n-p "Replace the existing buffer?"))
  49.     (progn
  50.       (erase-buffer)
  51.       (setq new-buf (current-buffer))
  52.       (save-excursion
  53.         (set-buffer cur-buf)
  54.         (goto-char beg)
  55.         (re-search-forward "^$")
  56.         (append-to-buffer new-buf (+ (match-end 0) 1) end)
  57.         )))
  58.     (mime-decode-region (point-min)(point-max) encoding)
  59.     (run-hooks 'mime-article/decode-html-hook)
  60.     ))
  61.  
  62. (set-atype 'mime/content-decoding-condition
  63.        '((type . "text/html")
  64.          (method . mime-article/decode-html)
  65.          (mode . "extract")
  66.          ))
  67.  
  68.  
  69. ;;; @ end
  70. ;;;
  71.  
  72. (provide 'tm-html)
  73.  
  74. ;;; end of tm-html.el
  75.